home *** CD-ROM | disk | FTP | other *** search
/ Summit / Summit Recordable CD-ROM.ISO / screen / main.spr < prev    next >
Encoding:
Text File  |  1994-08-12  |  38.4 KB  |  1,622 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 08/12/94              MAIN.SPR                 12:49:42 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Duncan Halstead                                         
  8. *       *                                                         
  9. *       * Copyright (c) 1994 CD-ROM, Inc                          
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *               Windows Window definitions                
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. MODIFY WINDOW SCREEN ;
  45.     AT 0.154, 0.000 ;
  46.     SIZE 34.692,127.000 ;
  47.     TITLE "Products" ;
  48.     FONT "MS Sans Serif", 8 ;
  49.     FLOAT ;
  50.     NOCLOSE ;
  51.     MINIMIZE ;
  52.     FILL FILE LOCFILE("BMP\ROCKFACE.BMP","BMP|ICO|PCT|ICN", ;
  53.         "Where is rockface?")
  54. CLEAR
  55.  
  56. *       *********************************************************
  57. *       *                                                         
  58. *       *           MAIN/Windows Setup Code - SECTION 2           
  59. *       *                                                         
  60. *       *********************************************************
  61. *
  62.  
  63. #REGION 1
  64. do summit.mpr
  65. SET PATH TO \data
  66. SET BELL OFF
  67. SET STATUS BAR OFF
  68. PUBLIC M.Slct, M.Numb
  69. M.slct = 'Adapter Panels'
  70.  
  71. CLOSE DATABASES
  72. USE ITEM
  73. COUNT TO M.Count
  74. DIMENSION AITEM(M.Count,1)
  75. COPY TO ARRAY AITEM
  76. =ASORT(AITEM)
  77.  
  78. Close databases
  79.  
  80. *       *********************************************************
  81. *       *                                                         
  82. *       *               MAIN/Windows Screen Layout                
  83. *       *                                                         
  84. *       *********************************************************
  85. *
  86.  
  87. #REGION 1
  88. @ 4.615,43.200 TO 24.923,83.200 ;
  89.     PEN 4, 8 ;
  90.     COLOR RGB(0,255,255,,,,)
  91. @ 4.923,44.200 GET M.slct ;
  92.      PICTURE "@&N" ;
  93.     FROM AITEM ;
  94.     SIZE 19.615,38.200 ;
  95.     DEFAULT 1 ;
  96.     FONT "MS Sans Serif", 8 ;
  97.     VALID _qsi0rhvy6()
  98. @ 27.615,50.400 GET M.Quitting ;
  99.     PICTURE "@*VN \Return to Main" ;
  100.     SIZE 2.538,21.833,0.923 ;
  101.     DEFAULT 1 ;
  102.     FONT "MS Sans Serif", 8 ;
  103.     STYLE "B" ;
  104.     VALID _qsi0rieq8()
  105.  
  106.  
  107.  
  108. READ CYCLE ;
  109.     ACTIVATE _qsi0rif05() ;
  110.     DEACTIVATE .T.
  111.  
  112. MODIFY WINDOW SCREEN
  113. SELECT (m.currarea)
  114.  
  115.  
  116. #REGION 0
  117.  
  118. SET READBORDER &rborder
  119.  
  120. IF m.talkstat = "ON"
  121.     SET TALK ON
  122. ENDIF
  123. IF m.compstat = "ON"
  124.     SET COMPATIBLE ON
  125. ENDIF
  126.  
  127.  
  128. *       *********************************************************
  129. *       *                                                         
  130. *       * _QSI0RHVY6           M.slct VALID                       
  131. *       *                                                         
  132. *       * Function Origin:                                        
  133. *       *                                                         
  134. *       * From Platform:       Windows                            
  135. *       * From Screen:         MAIN,     Record Number:    3      
  136. *       * Variable:            M.slct                             
  137. *       * Called By:           VALID Clause                       
  138. *       * Object Type:         List                               
  139. *       * Snippet Number:      1                                  
  140. *       *                                                         
  141. *       *********************************************************
  142. *
  143. FUNCTION _qsi0rhvy6     &&  M.slct VALID
  144. #REGION 1
  145. SCXFND = .F.
  146. DO CASE
  147.     CASE M.Slct = 'Adapter Panels'
  148.         M.Numb = 161
  149.         SCXFND = .T.
  150.     CASE M.Slct = 'Adapter Plates'
  151.         M.Numb = 117
  152.         SCXFND = .T.
  153.     CASE M.Slct = 'Airdoors'
  154.         M.Numb = 150
  155.         SCXFND = .T.
  156.     CASE M.Slct = 'Allen Wrench'
  157.         M.Numb = 47
  158.         SCXFND = .T.
  159.     CASE M.Slct = 'Aprons'
  160.         M.Numb = 136
  161.         SCXFND = .T.
  162.     CASE M.Slct = 'Ashtrays'
  163.         DIMENSION Pro[2,1]
  164.         STORE 'Anchor Hocking' TO Pro[1,1]
  165.         STORE 'Libbey' TO Pro[2,1]
  166.         DO PRO.SPR
  167.     CASE M.Slct = 'Au Gratin'
  168.         DIMENSION Pro[2,1]
  169.         STORE 'Bel-Terr China Inc.' TO Pro[1,1]
  170.         STORE 'Hall China' TO Pro[2,1]
  171.         DO PRO.SPR
  172.     CASE M.Slct = 'Automatic Coffee Makers'
  173.         M.Numb = 60
  174.         SCXFND = .T.
  175.     CASE M.Slct = 'Bain Maries'
  176.         M.Numb = 117
  177.         SCXFND = .T.
  178.     CASE M.Slct = 'Bake Pans'
  179.         DIMENSION Pro[2,1]
  180.         STORE 'Lincoln Foodservice' TO Pro[1,1]
  181.         STORE 'Vollrath' TO Pro[2,1]
  182.         DO PRO.SPR
  183.     CASE M.Slct = 'Bakers'
  184.         M.Numb = 6
  185.         SCXFND = .T.
  186.     CASE M.Slct = 'Baking Shells'
  187.         M.Numb = 5
  188.         SCXFND = .T.
  189.     CASE M.Slct = 'Bar Caddy'
  190.         M.Numb = 46
  191.         SCXFND = .T.
  192.     CASE M.Slct = 'Bar Mat'
  193.         M.Numb = 46
  194.         SCXFND = .T.
  195.     CASE M.Slct = 'Bar Supplies'
  196.         DIMENSION Page[12,1]
  197.         STORE '42' TO Page[1,1]
  198.         STORE '43' TO Page[2,1]
  199.         STORE '44' TO Page[3,1]
  200.         STORE '45' TO Page[4,1]
  201.         STORE '46' TO Page[5,1]
  202.         STORE '47' TO Page[6,1]
  203.         STORE '48' TO Page[7,1]
  204.         STORE '49' TO Page[8,1]
  205.         STORE '50' TO Page[9,1]
  206.         STORE '51' TO Page[10,1]
  207.         STORE '52' TO Page[11,1]
  208.         STORE '53' TO Page[12,1]
  209.         DO Number.spr
  210.     CASE M.Slct = 'Bar Towell'
  211.         M.Numb = 136
  212.         SCXFND = .T.
  213.     CASE M.Slct = 'Bar Twist Spoons'
  214.         M.Numb = 44
  215.         SCXFND = .T.
  216.     CASE M.Slct = 'Baskets'
  217.         M.Numb = 69
  218.         SCXFND = .T.
  219.     CASE M.Slct = 'Batter Boss'
  220.         M.Numb = 132
  221.         SCXFND = .T.
  222.     CASE M.Slct = 'Batter Cans'
  223.         M.Numb = 122
  224.         SCXFND = .T.
  225.     CASE M.Slct = 'Bean Pot'
  226.         M.Numb = 6
  227.         SCXFND = .T.
  228.     CASE M.Slct = 'Beer Dispenser'
  229.         M.Numb = 180
  230.         SCXFND = .T.
  231.     CASE M.Slct = 'Beer Glasses'
  232.         M.Numb = 23
  233.         SCXFND = .T.
  234.     CASE M.Slct = 'Beer Mugs'
  235.         DIMENSION Pro[2,1]
  236.         STORE 'Anchor Hocking' TO Pro[1,1]
  237.         STORE 'Libbey' TO Pro[2,1]
  238.         DO PRO.SPR
  239.     CASE M.Slct = 'Beverage Dispensers'
  240.         M.Numb = 61
  241.         SCXFND = .T.
  242.     CASE M.Slct = 'Beverage Servers'
  243.         DIMENSION Pro[5,1]
  244.         STORE 'Continental/Silite' TO Pro[1,1]
  245.         STORE 'Service Ideas, Inc.' TO Pro[2,1]
  246.         STORE 'Tablecraft' TO Pro[3,1]
  247.         STORE 'Traex' TO Pro[4,1]
  248.         STORE 'Vollrath' TO Pro[5,1]
  249.         DO PRO.SPR
  250.     CASE M.Slct = 'Blenders'
  251.         DIMENSION Page[2,1]
  252.         STORE '49' TO Page[1,1]
  253.         STORE '50' TO Page[2,1]
  254.         DO Number.spr
  255.     CASE M.Slct = 'Boning Knives'
  256.         M.Numb = 102
  257.         SCXFND = .T.
  258.     CASE M.Slct = 'Booster Seats'
  259.         M.Numb = 196
  260.         SCXFND = .T.
  261.     CASE M.Slct = 'Booths'
  262.         M.Numb = 196
  263.         SCXFND = .T.
  264.     CASE M.Slct = 'Bottle Cooler'
  265.         M.Numb = 180
  266.         SCXFND = .T.
  267.     CASE M.Slct = 'Bottle Openers'
  268.         M.Numb = 43
  269.         SCXFND = .T.
  270.     CASE M.Slct = 'Bowls'
  271.         M.Numb = 6
  272.         SCXFND = .T.
  273.     CASE M.Slct = 'Brandy Snifters'
  274.         M.Numb = 18
  275.         SCXFND = .T.
  276.     CASE M.Slct = 'Braziers'
  277.         M.Numb = 118
  278.         SCXFND = .T.
  279.     CASE M.Slct = 'Broiler'
  280.         M.Numb = 157
  281.         SCXFND = .T.
  282.     CASE M.Slct = 'Brute Containers'
  283.         M.Numb = 206
  284.         SCXFND = .T.
  285.     CASE M.Slct = 'Bud Vase'    
  286.         M.Numb = 26
  287.         SCXFND = .T.
  288.     CASE M.Slct = 'Buffet Units, Portable'
  289.         M.Numb = 162
  290.         SCXFND = .T.
  291.     CASE M.Slct = 'Buffetware'
  292.         DIMENSION Pro[2,1]
  293.         STORE 'Continental/Silite' TO Pro[1,1]
  294.         STORE 'Vollrath' TO Pro[2,1]
  295.         DO PRO.SPR
  296.     CASE M.Slct = 'Bun Pans'
  297.         M.Numb = 125
  298.         SCXFND = .T.
  299.     CASE M.Slct = 'Bun Rack'
  300.         DIMENSION Pro[2,1]
  301.         STORE 'Bevles' TO Pro[1,1]
  302.         STORE 'Metro' TO Pro[2,1]
  303.         DO PRO.spr
  304.     CASE M.Slct = 'Bus Boxes'
  305.         M.Numb = 184
  306.         SCXFND = .T.
  307.     CASE M.Slct = 'Bus Cart'
  308.         M.Numb = 185
  309.         SCXFND = .T.
  310.     CASE M.Slct = 'Bus Carts'
  311.         M.Numb = 183
  312.         SCXFND = .T.
  313.     CASE M.Slct = 'Butter Cutter'
  314.         M.Numb = 134
  315.         SCXFND = .T.
  316.     CASE M.Slct = 'Caddy'
  317.         M.Numb = 75
  318.         SCXFND = .T.
  319.     CASE M.Slct = 'Cake Decorating Supplies'
  320.         M.Numb = 137
  321.         SCXFND = .T.
  322.     CASE M.Slct = 'Cake Pans'
  323.         M.Numb = 127
  324.         SCXFND = .T.
  325.     CASE M.Slct = 'Can Crusher'
  326.         M.Numb = 135
  327.         SCXFND = .T.
  328.     CASE M.Slct = 'Can Openers'
  329.         M.Numb = 135
  330.         SCXFND = .T.
  331.     CASE M.Slct = 'Can Punch'
  332.         M.Numb = 135
  333.         SCXFND = .T.
  334.     CASE M.Slct = 'Candle Lamp'
  335.         M.Numb = 26
  336.         SCXFND = .T.
  337.     CASE M.Slct = 'Candle Lamps'
  338.         M.Numb = 41
  339.         SCXFND = .T.
  340.     CASE M.Slct = 'Candles'
  341.         M.Numb = 41
  342.         SCXFND = .T.
  343.     CASE M.Slct = 'Canisters'
  344.         M.Numb = 39
  345.         SCXFND = .T.
  346.     CASE M.Slct = 'Card Stands'
  347.         M.Numb = 79
  348.         SCXFND = .T.
  349.     CASE M.Slct = 'Carts, Bussing'
  350.         M.Numb = 100
  351.         SCXFND = .T.
  352.     CASE M.Slct = 'Carts, Service'
  353.         M.Numb = 100
  354.         SCXFND = .T.
  355.     CASE M.Slct = 'Carts'
  356.         DIMENSION Pro[3,1]
  357.         STORE 'Aris/Lakeside' TO Pro[1,1]
  358.         STORE 'Rubbermaid' TO Pro[2,1]
  359.         STORE 'Vollrath' TO Pro[3,1]
  360.         DO PRO.spr
  361.     CASE M.Slct = 'Casseroles'
  362.         M.Numb = 5
  363.         SCXFND = .T.
  364.     CASE M.Slct = 'Cast Iron Cookware'
  365.         M.Numb = 119
  366.         SCXFND = .T.
  367.     CASE M.Slct = 'Cateraides'
  368.         M.Numb = 56
  369.         SCXFND = .T.
  370.     CASE M.Slct = 'Chafer Fuel'
  371.         DIMENSION Page[3,1]
  372.         STORE '95' TO Page[1,1]
  373.         STORE '96' TO Page[2,1]
  374.         STORE '97' TO Page[3,1]
  375.         DO Number.spr    
  376.     CASE M.Slct = 'Chafer Rack'
  377.         M.Numb = 97
  378.         SCXFND = .T.
  379.     CASE M.Slct = 'Chafer Stands'
  380.         M.Numb = 67
  381.         SCXFND = .T.
  382.     CASE M.Slct = 'Chafers'
  383.         DIMENSION Pro[2,1]
  384.         STORE 'Spring Switzerland' TO Pro[1,1]
  385.         STORE 'Vollrath' TO Pro[2,1]
  386.         DO PRO.spr
  387.     CASE M.Slct = 'Chairs'
  388.         M.Numb = 195
  389.         SCXFND = .T.
  390.     CASE M.Slct = 'Check Caddy'
  391.         M.Numb = 46
  392.         SCXFND = .T.
  393.     CASE M.Slct = 'Cheese Knife'
  394.         M.Numb = 109
  395.         SCXFND = .T.
  396.     CASE M.Slct = 'Chefs Fork'
  397.         M.Numb = 103
  398.         SCXFND = .T.
  399.     CASE M.Slct = 'Chefs Hat'
  400.         M.Numb = 136
  401.         SCXFND = .T.
  402.     CASE M.Slct = 'Chemicals'
  403.         M.Numb = 208
  404.         SCXFND = .T.
  405.     CASE M.Slct = 'China'
  406.         DIMENSION Pro[5,1]
  407.         STORE 'Buffalo' TO Pro[2,1]
  408.         STORE 'Crest Mfg,, Inc.' TO Pro[3,1]
  409.         STORE 'Victoria Porcelain' TO Pro[5,1]
  410.         STORE 'Bel-Terr China Inc.' TO Pro[1,1]
  411.         STORE 'Miscellanuous' TO Pro[4,1]
  412.         DO PRO.SPR
  413.     CASE M.Slct = 'Chopper Attachments'
  414.         M.Numb = 149
  415.         SCXFND = .T.
  416.     CASE M.Slct = 'Cleavers'
  417.         M.Numb = 106
  418.         SCXFND = .T.
  419.     CASE M.Slct = 'Cocktail Swords'
  420.         M.Numb = 51
  421.         SCXFND = .T.
  422.     CASE M.Slct = 'Coffee Makers'
  423.         DIMENSION Page[2,1]
  424.         STORE '58' TO Page[1,1]
  425.         STORE '59' TO Page[2,1]
  426.         DO Number.spr
  427.     CASE M.Slct = 'Coffee Mugs'
  428.         M.Numb = 36
  429.         SCXFND = .T.
  430.     CASE M.Slct = 'Coffee Urns'
  431.         M.Numb = 95
  432.         SCXFND = .T.
  433.     CASE M.Slct = 'Colanders'
  434.         DIMENSION Pro[2,1]
  435.         STORE 'Lincoln Foodservice' TO Pro[1,1]
  436.         STORE 'Vollrath' TO Pro[2,1]
  437.         DO PRO.SPR
  438.     CASE M.Slct = 'Collection System'
  439.         M.Numb = 204
  440.         SCXFND = .T.
  441.     CASE M.Slct = 'Compartment Racks'
  442.         DIMENSION Page[2,1]
  443.         STORE '186' TO Page[1,1]
  444.         STORE '192' TO Page[2,1]
  445.         DO Number.spr    
  446.     CASE M.Slct = 'Condiment Drawer'
  447.         M.Numb = 46
  448.         SCXFND = .T.
  449.     CASE M.Slct = 'Condiment Server'
  450.         M.Numb = 46
  451.         SCXFND = .T.
  452.     CASE M.Slct = 'Connectors'
  453.         M.Numb = 173
  454.         SCXFND = .T.
  455.     CASE M.Slct = 'Convection Ovens'
  456.         DIMENSION Pro[4,1]
  457.         STORE 'Blodgett' TO Pro[1,1]
  458.         STORE 'Garland' TO Pro[2,1]
  459.         STORE 'Vulcan' TO Pro[3,1]
  460.         STORE 'Wells' TO Pro[4,1]
  461.         DO PRO.SPR
  462.     CASE M.Slct = 'Conveyer Ovens'
  463.         DIMENSION Pro[2,1]
  464.         STORE 'Holman' TO Pro[1,1]
  465.         STORE 'Lincoln Foodservice' TO Pro[2,1]
  466.         DO PRO.SPR
  467.     CASE M.Slct = 'Conveyer Toasters'
  468.         M.Numb = 156
  469.         SCXFND = .T.
  470.     CASE M.Slct = 'Cooks Fork'
  471.         M.Numb = 106
  472.         SCXFND = .T.
  473.     CASE M.Slct = 'Cooks Knifes'
  474.         DIMENSION Page[2,1]
  475.         STORE '101' TO Page[1,1]
  476.         STORE '103' TO Page[2,1]
  477.         DO Number.spr
  478.     CASE M.Slct = 'Cool Handles'
  479.         M.Numb = 118
  480.         SCXFND = .T.
  481.     CASE M.Slct = 'Corkscrews'
  482.         M.Numb = 43
  483.         SCXFND = .T.
  484.     CASE M.Slct = 'Cover, Pan Rack'
  485.         M.Numb = 182
  486.         SCXFND = .T.
  487.     CASE M.Slct = 'Covers, Insert Pans'
  488.         M.Numb = 113
  489.         SCXFND = .T.
  490.     CASE M.Slct = 'Covers, Sauce Pans'
  491.         DIMENSION Pro[2,1]
  492.         STORE 'Wearever' TO Pro[2,1]
  493.         STORE 'Lincoln Foodservice' TO Pro[1,1]
  494.         DO PRO.SPR
  495.     CASE M.Slct = 'Covers, Steamtable Pans'
  496.         M.Numb = 110
  497.         SCXFND = .T.
  498.     CASE M.Slct = 'Covers, Stock Pots'
  499.         DIMENSION Pro[2,1]
  500.         STORE 'Vollrath' TO Pro[2,1]
  501.         STORE 'Lincoln Foodservice' TO Pro[1,1]
  502.         DO PRO.SPR
  503.     CASE M.Slct = 'Creamer'
  504.         M.Numb = 7
  505.         SCXFND = .T.
  506.     CASE M.Slct = 'Creamers'
  507.         DIMENSION Page[2,1]
  508.         STORE '5' TO Page[1,1]
  509.         STORE '68' TO Page[2,1]
  510.         DO Number.spr
  511.     CASE M.Slct = 'Cup Cake Pans'
  512.         M.Numb = 127
  513.         SCXFND = .T.
  514.     CASE M.Slct = 'Custards'
  515.         M.Numb = 5
  516.         SCXFND = .T.
  517.     CASE M.Slct = 'Cutlery Box'
  518.         M.Numb = 184
  519.         SCXFND = .T.
  520.     CASE M.Slct = 'Cutlery Set'
  521.         M.Numb = 109
  522.         SCXFND = .T.
  523.     CASE M.Slct = 'Cutlery'
  524.         DIMENSION Pro[2,1]
  525.         STORE 'F.D. Dick' TO Pro[1,1]
  526.         STORE 'Russell Harrington' TO Pro[2,1]
  527.         DO PRO.SPR
  528.     CASE M.Slct = 'Cutting Board'
  529.         M.Numb = 47
  530.         SCXFND = .T.
  531.     CASE M.Slct = 'Decanters'
  532.         DIMENSION Page[2,1]
  533.         STORE '29' TO Page[1,1]
  534.         STORE '40' TO Page[2,1]
  535.         DO Number.spr
  536.     CASE M.Slct = 'Deli Cases'
  537.         M.Numb = 178
  538.         SCXFND = .T.
  539.     CASE M.Slct = 'Dippers'
  540.         M.Numb = 129
  541.         SCXFND = .T.
  542.     CASE M.Slct = 'Dipwell'
  543.         M.Numb = 48
  544.         SCXFND = .T.
  545.     CASE M.Slct = 'Dish Boxes'
  546.         M.Numb = 184
  547.         SCXFND = .T.
  548.     CASE M.Slct = 'Dish Dollies'
  549.         M.Numb = 165
  550.         SCXFND = .T.
  551.     CASE M.Slct = 'Dishers'
  552.         M.Numb = 48
  553.         SCXFND = .T.
  554.     CASE M.Slct = 'Dishwashers'
  555.         DIMENSION Page[2,1]
  556.         STORE '190' TO Page[1,1]
  557.         STORE '191' TO Page[2,1]
  558.         DO Number.spr
  559.     CASE M.Slct = 'Display Cases'
  560.         M.Numb = 177
  561.         SCXFND = .T.
  562.     CASE M.Slct = 'Display Stands'
  563.         M.Numb = 82
  564.         SCXFND = .T.
  565.     CASE M.Slct = 'Disposable Bowls'
  566.         M.Numb = 198
  567.         SCXFND = .T.
  568.     CASE M.Slct = 'Disposable Cups'
  569.         DIMENSION Pro[2,1]
  570.         STORE 'Dart' TO Pro[1,1]
  571.         STORE 'Solo' TO Pro[2,1]
  572.         DO PRO.SPR
  573.     CASE M.Slct = 'Disposable Dinnerware'
  574.         M.Numb = 197
  575.         SCXFND = .T.
  576.     CASE M.Slct = 'Disposable Lids'
  577.         DIMENSION Page[2,1]
  578.         STORE '197' TO Page[1,1]
  579.         STORE '199' TO Page[2,1]
  580.         DO Number.spr
  581.     CASE M.Slct = 'Disposers'
  582.         DIMENSION Pro[2,1]
  583.         STORE 'T&S' TO Pro[1,1]
  584.         STORE 'Waste King' TO Pro[2,1]
  585.         DO PRO.SPR
  586.     CASE M.Slct = 'Double Boilers'
  587.         M.Numb = 121
  588.         SCXFND = .T.
  589.     CASE M.Slct = 'Dough Scrapers'
  590.         DIMENSION Page[2,1]
  591.         STORE '107' TO Page[1,1]
  592.         STORE '108' TO Page[2,1]
  593.         DO Number.spr
  594.     CASE M.Slct = 'Drain Trays'
  595.         M.Numb = 113
  596.         SCXFND = .T.
  597.     CASE M.Slct = 'Dredges'
  598.         M.Numb = 126
  599.         SCXFND = .T.
  600.     CASE M.Slct = 'Drink Mixer'
  601.         DIMENSION Page[2,1]
  602.         STORE '48' TO Page[1,1]
  603.         STORE '49' TO Page[2,1]
  604.         DO Number.spr
  605.     CASE M.Slct = 'Dripless Water Pan'
  606.         M.Numb = 67
  607.         SCXFND = .T.
  608.     CASE M.Slct = 'Egg Cup'
  609.         M.Numb = 6
  610.         SCXFND = .T.
  611.     CASE M.Slct = 'Ejector Fork'
  612.         M.Numb = 44
  613.         SCXFND = .T.
  614.     CASE M.Slct = 'Elizabeth, Stemware'
  615.         M.Numb = 19
  616.         SCXFND = .T.
  617.     CASE M.Slct = 'Escargot Plate'
  618.         M.Numb = 5
  619.         SCXFND = .T.
  620.     CASE M.Slct = 'Excellency, Glassware'
  621.         M.Numb = 19
  622.         SCXFND = .T.
  623.     CASE M.Slct = 'Faucets'
  624.         M.Numb = 187
  625.         SCXFND = .T.
  626.     CASE M.Slct = 'Film/Foil Dispenser'
  627.         M.Numb = 132
  628.         SCXFND = .T.
  629.     CASE M.Slct = 'Filter Systems'
  630.         DIMENSION Pro[2,1]
  631.         STORE 'Dormont' TO Pro[1,1]
  632.         STORE 'Frymaster' TO Pro[2,1]
  633.         DO PRO.SPR
  634.     CASE M.Slct = 'Flateware'
  635.         DIMENSION Pro[3,1]
  636.         STORE 'Delco Tableware' TO Pro[1,1]
  637.         STORE 'Oneida' TO Pro[2,1]
  638.         STORE 'Miscellaneuos' TO Pro[3,1]
  639.         DO PRO.SPR    
  640.     CASE M.Slct = 'Foam Containers'
  641.         M.Numb = 200
  642.         SCXFND = .T.
  643.     CASE M.Slct = 'Foam Cups'
  644.         M.Numb = 200
  645.         SCXFND = .T.
  646.     CASE M.Slct = 'Foam Plates'
  647.         M.Numb = 200
  648.         SCXFND = .T.
  649.     CASE M.Slct = 'Folding Tables'
  650.         M.Numb = 194
  651.         SCXFND = .T.
  652.     CASE M.Slct = 'Food Bars'
  653.         M.Numb = 75
  654.         SCXFND = .T.
  655.     CASE M.Slct = 'Food Chopper'
  656.         M.Numb = 50
  657.         SCXFND = .T.
  658.     CASE M.Slct = 'Food Cutter/Shredder'
  659.         M.Numb = 132
  660.         SCXFND = .T.
  661.     CASE M.Slct = 'Food Grinders'
  662.         M.Numb = 149
  663.         SCXFND = .T.
  664.     CASE M.Slct = 'Food Processor'
  665.         M.Numb = 150
  666.         SCXFND = .T.
  667.     CASE M.Slct = 'Food Processors'
  668.         M.Numb = 50
  669.         SCXFND = .T.
  670.     CASE M.Slct = 'Food Tables'
  671.         M.Numb = 161
  672.         SCXFND = .T.
  673.     CASE M.Slct = 'Food Warmer Candles'
  674.         M.Numb = 41
  675.         SCXFND = .T.
  676.     CASE M.Slct = 'Food Warmer'
  677.         M.Numb = 161
  678.         SCXFND = .T.
  679.     CASE M.Slct = 'Food Warmers'
  680.         M.Numb = 159
  681.         SCXFND = .T.
  682.     CASE M.Slct = 'Freezers'
  683.         DIMENSION Pro[2,1]
  684.         STORE 'Delfield' TO Pro[1,1]
  685.         STORE 'True' TO Pro[2,1]
  686.         DO PRO.SPR
  687.     CASE M.Slct = 'Fry Pan Server'
  688.         DIMENSION Pro[2,1]
  689.         STORE 'Bel-Terr China Inc.' TO Pro[1,1]
  690.         STORE 'Hall China' TO Pro[2,1]
  691.         DO PRO.SPR
  692.     CASE M.Slct = 'Fry Pans'
  693.         DIMENSION Pro[2,1]
  694.         STORE 'Lincoln Foodservice' TO Pro[1,1]
  695.         STORE 'Wearever' TO Pro[2,1]
  696.         DO PRO.SPR
  697.     CASE M.Slct = 'Fryer'
  698.         M.Numb = 158
  699.         SCXFND = .T.
  700.     CASE M.Slct = 'Fryers'
  701.         DIMENSION Pro[2,1]
  702.         STORE 'FryMaster' TO Pro[1,1]
  703.         STORE 'Wells' TO Pro[2,1]
  704.         DO PRO.SPR
  705.     CASE M.Slct = 'Fuel Holder'
  706.         M.Numb = 97
  707.         SCXFND = .T.
  708.     CASE M.Slct = 'Funnels'
  709.         M.Numb = 122
  710.         SCXFND = .T.
  711.     CASE M.Slct = 'Garlic Press'
  712.         DIMENSION Page[2,1]
  713.         STORE '131' TO Page[1,1]
  714.         STORE '134' TO Page[2,1]
  715.         DO Number.spr    
  716.     CASE M.Slct = 'Garnisher'
  717.         M.Numb = 134
  718.         SCXFND = .T.
  719.     CASE M.Slct = 'Glass Decanters'
  720.         M.Numb = 58
  721.         SCXFND = .T.
  722.     CASE M.Slct = 'Glass Dinnerware'
  723.         DIMENSION Pro[3,1]
  724.         STORE 'Anchor Hocking' TO Pro[1,1]
  725.         STORE 'Kelsey Dinnerware' TO Pro[2,1]
  726.         STORE 'Libbey' TO Pro[3,1]
  727.         DO PRO.SPR
  728.     CASE M.Slct = 'Glass Rimmer'
  729.         M.Numb = 44
  730.         SCXFND = .T.
  731.     CASE M.Slct = 'Glass Washing Brushes'
  732.         M.Numb = 47
  733.         SCXFND = .T.
  734.     CASE M.Slct = 'Glass/Plate Chiller'
  735.         M.Numb = 180
  736.         SCXFND = .T.
  737.     CASE M.Slct = 'Glassware'
  738.         DIMENSION Pro[2,1]
  739.         STORE 'Anchor Hocking' TO Pro[1,1]
  740.         STORE 'Libbey' TO Pro[2,1]
  741.         DO PRO.SPR
  742.     CASE M.Slct = 'Grapefruit Knife'
  743.         M.Numb = 109
  744.         SCXFND = .T.
  745.     CASE M.Slct = 'Griddle Screen Holder'
  746.         M.Numb = 133
  747.         SCXFND = .T.
  748.     CASE M.Slct = 'Griddle Stone Holder'
  749.         M.Numb = 133
  750.         SCXFND = .T.
  751.     CASE M.Slct = 'Griddle Stone'
  752.         M.Numb = 133
  753.         SCXFND = .T.
  754.     CASE M.Slct = 'Griddles'
  755.         DIMENSION Pro[2,1]
  756.         STORE 'Lodge' TO Pro[1,1]
  757.         STORE 'Wells' TO Pro[2,1]
  758.         DO PRO.SPR
  759.     CASE M.Slct = 'Grinder Attachments'
  760.         M.Numb = 149
  761.         SCXFND = .T.
  762.     CASE M.Slct = 'Guest Checks'
  763.         M.Numb = 51
  764.         SCXFND = .T.
  765.     CASE M.Slct = 'Ham Holder'
  766.         M.Numb = 132
  767.         SCXFND = .T.
  768.     CASE M.Slct = 'Hamburger Mold'
  769.         DIMENSION Pro[2,1]
  770.         STORE 'Miscellaneuos' TO Pro[1,1]
  771.         STORE 'Vollrath' TO Pro[2,1]
  772.         DO PRO.SPR
  773.     CASE M.Slct = 'Heated Cabinet'
  774.         M.Numb = 165
  775.         SCXFND = .T.
  776.     CASE M.Slct = 'Heated Cabinets'
  777.         DIMENSION Page[2,1]
  778.         STORE '163' TO Page[1,1]
  779.         STORE '164' TO Page[2,1]
  780.         DO Number.spr
  781.     CASE M.Slct = 'High Chairs'
  782.         M.Numb = 196
  783.         SCXFND = .T.
  784.     CASE M.Slct = 'Hollware'
  785.         DIMENSION Pro[2,1]
  786.         STORE 'Oneida' TO Pro[1,1]
  787.         STORE 'Vollrath' TO Pro[2,1]
  788.         DO PRO.SPR
  789.     CASE M.Slct = 'Hot Dog Steamer'
  790.         M.Numb = 155
  791.         SCXFND = .T.
  792.     CASE M.Slct = 'Hot Plates'
  793.         M.Numb = 159
  794.         SCXFND = .T.
  795.     CASE M.Slct = 'Ice Chipper'
  796.         M.Numb = 45
  797.         SCXFND = .T.
  798.     CASE M.Slct = 'Ice Cream Spade'
  799.         M.Numb = 48
  800.         SCXFND = .T.
  801.     CASE M.Slct = 'Ice Machines'
  802.         M.Numb = 181
  803.         SCXFND = .T.
  804.     CASE M.Slct = 'Ice Molds'
  805.         M.Numb = 76
  806.         SCXFND = .T.
  807.     CASE M.Slct = 'Ice Pick'
  808.         M.Numb = 45
  809.         SCXFND = .T.
  810.     CASE M.Slct = 'Ingredient Bins'
  811.         M.Numb = 142
  812.         SCXFND = .T.
  813.     CASE M.Slct = 'Insert Pans'
  814.         M.Numb = 113
  815.         SCXFND = .T.
  816.     CASE M.Slct = 'Insets'
  817.         M.Numb = 117
  818.         SCXFND = .T.
  819.     CASE M.Slct = 'Insulated Pan Carriers'
  820.         M.Numb = 57
  821.         SCXFND = .T.
  822.     CASE M.Slct = 'Jigger'
  823.         M.Numb = 45
  824.         SCXFND = .T.
  825.     CASE M.Slct = 'Juice Extractor'
  826.         M.Numb = 50
  827.         SCXFND = .T.
  828.     CASE M.Slct = 'Knives'
  829.         DIMENSION Page[4,1]
  830.         STORE '101' TO Page[1,1]
  831.         STORE '102' TO Page[2,1]
  832.         STORE '103' TO Page[3,1]
  833.         STORE '104' TO Page[4,1]        
  834.         DO Number.spr
  835.     CASE M.Slct = 'Lids, Brute Containers'
  836.         M.Numb = 206
  837.         SCXFND = .T.
  838.     CASE M.Slct = 'Lids, Tote Boxes'
  839.         M.Numb = 141
  840.         SCXFND = .T.
  841.     CASE M.Slct = 'Liners, Can'
  842.         M.Numb = 204
  843.         SCXFND = .T.
  844.     CASE M.Slct = 'Liquid Fuel Cartridge'
  845.         M.Numb = 41
  846.         SCXFND = .T.
  847.     CASE M.Slct = 'Loaf Pans'
  848.         DIMENSION Page[2,1]
  849.         STORE '121' TO Page[1,1]
  850.         STORE '127' TO Page[2,1]
  851.         DO Number.spr
  852.     CASE M.Slct = 'Marmite'
  853.         DIMENSION Pro[3,1]
  854.         STORE 'Bel-Terr China Inc.' TO Pro[1,1]
  855.         STORE 'Hall China' TO Pro[2,1]
  856.         STORE 'Spring Switzerland' TO Pro[3,1]
  857.         DO PRO.SPR
  858.     CASE M.Slct = 'Masher'
  859.         M.Numb = 139
  860.         SCXFND = .T.
  861.     CASE M.Slct = 'Mashers'
  862.         DIMENSION Pro[2,1]
  863.         STORE 'Falcon Hodges' TO Pro[1,1]
  864.         STORE 'Miscellaneuos' TO Pro[2,1]
  865.         DO PRO.SPR
  866.     CASE M.Slct = 'Matting'
  867.         M.Numb = 76
  868.         SCXFND = .T.
  869.     CASE M.Slct = 'Measure Miser'
  870.         M.Numb = 75
  871.         SCXFND = .T.
  872.     CASE M.Slct = 'Measures'
  873.         DIMENSION Pro[2,1]
  874.         STORE 'Lincoln Foodservice' TO Pro[1,1]
  875.         STORE 'Vollrath' TO Pro[2,1]
  876.         DO PRO.SPR
  877.     CASE M.Slct = 'Menu Covers'
  878.         M.Numb = 79
  879.         SCXFND = .T.
  880.     CASE M.Slct = 'Menu Holders'
  881.         M.Numb = 79
  882.         SCXFND = .T.
  883.     CASE M.Slct = 'Merchandiser'
  884.         M.Numb = 178
  885.         SCXFND = .T.
  886.     CASE M.Slct = 'Metal Sponges'
  887.         M.Numb = 133
  888.         SCXFND = .T.
  889.     CASE M.Slct = 'Microwave Ovens'
  890.         M.Numb = 153
  891.         SCXFND = .T.
  892.     CASE M.Slct = 'Mincing Knife'
  893.         M.Numb = 131
  894.         SCXFND = .T.
  895.     CASE M.Slct = 'Mixers'
  896.         DIMENSION Pro[2,1]
  897.         STORE 'Univex Corp.' TO Pro[1,1]
  898.         STORE 'Varimixer' TO Pro[2,1]
  899.         DO PRO.SPR
  900.     CASE M.Slct = 'Mixing Bowls'
  901.         M.Numb = 122
  902.         SCXFND = .T.
  903.     CASE M.Slct = 'Mixing Glasses'
  904.         DIMENSION Pro[2,1]
  905.         STORE 'American Metalcraft' TO Pro[1,1]
  906.         STORE 'Libbey' TO Pro[2,1]
  907.         DO PRO.SPR
  908.     CASE M.Slct = 'Mobile Stands'
  909.         M.Numb = 122
  910.         SCXFND = .T.
  911.     CASE M.Slct = 'Money Maids'
  912.         M.Numb = 52
  913.         SCXFND = .T.
  914.     CASE M.Slct = 'Mop Buckets'
  915.         M.Numb = 207
  916.         SCXFND = .T.
  917.     CASE M.Slct = 'Mop Wringers'
  918.         M.Numb = 207
  919.         SCXFND = .T.
  920.     CASE M.Slct = 'Mopping Combos'
  921.         M.Numb = 207
  922.         SCXFND = .T.
  923.     CASE M.Slct = 'Muddler'
  924.         M.Numb = 45
  925.         SCXFND = .T.
  926.     CASE M.Slct = 'Mugs'
  927.         M.Numb = 5
  928.         SCXFND = .T.
  929.     CASE M.Slct = 'Multi-way Servers'
  930.         M.Numb = 67
  931.         SCXFND = .T.
  932.     CASE M.Slct = 'Nacho Chip Merchandiser'
  933.         M.Numb = 155
  934.         SCXFND = .T.
  935.     CASE M.Slct = 'New Orleans, Glassware'
  936.         DIMENSION Page[2,1]
  937.         STORE '14' TO Page[1,1]
  938.         STORE '15' TO Page[2,1]
  939.         DO Number.spr
  940.     CASE M.Slct = 'Oven Mitts'
  941.         M.Numb = 136
  942.         SCXFND = .T.
  943.     CASE M.Slct = 'Ovens, Convection'
  944.         DIMENSION Pro[4,1]
  945.         STORE 'Blodgett' TO Pro[1,1]
  946.         STORE 'Garland' TO Pro[2,1]
  947.         STORE 'Vulcan' TO Pro[3,1]
  948.         STORE 'Wells' TO Pro[4,1]
  949.         DO PRO.SPR
  950.     CASE M.Slct = 'Ovens, Conveyer'
  951.         M.Numb = 156
  952.         SCXFND = .T.
  953.     CASE M.Slct = 'Ovens, Cntr. top Conveyer'
  954.         M.Numb = 166
  955.         SCXFND = .T.
  956.     CASE M.Slct = 'Oyster Knife'
  957.         M.Numb = 102
  958.         SCXFND = .T.
  959.     CASE M.Slct = 'Paddles'
  960.         M.Numb = 128
  961.         SCXFND = .T.
  962.     CASE M.Slct = 'Pan Grabber'
  963.         M.Numb = 136
  964.         SCXFND = .T.
  965.     CASE M.Slct = 'Pan Gripper'
  966.         M.Numb = 138
  967.         SCXFND = .T.
  968.     CASE M.Slct = 'Pans, Bake'
  969.         DIMENSION Page[2,1]
  970.         STORE '123' TO Page[1,1]
  971.         STORE '124' TO Page[2,1]
  972.         DO Number.spr
  973.     CASE M.Slct = 'Pans, Fry'
  974.         DIMENSION Pro[2,1]
  975.         STORE 'Lincoln Foodservice' TO Pro[1,1]
  976.         STORE 'Wearever' TO Pro[2,1]
  977.         DO PRO.SPR
  978.     CASE M.Slct = 'Pans, Roast'
  979.         DIMENSION Page[3,1]
  980.         STORE '123' TO Page[1,1]
  981.         STORE '124' TO Page[2,1]
  982.         STORE '125' TO Page[3,1]
  983.         DO Number.spr    
  984.     CASE M.Slct = 'Pans, Sauce'
  985.         DIMENSION Pro[2,1]
  986.         STORE 'Lincoln Foodservice' TO Pro[1,1]
  987.         STORE 'Wearever' TO Pro[2,1]
  988.         DO PRO.SPR
  989.     CASE M.Slct = 'Paper Towel Dispensers'
  990.         M.Numb = 203
  991.         SCXFND = .T.
  992.     CASE M.Slct = 'Paper Towels'
  993.         M.Numb = 201
  994.         SCXFND = .T.
  995.     CASE M.Slct = 'Paring Knives'
  996.         DIMENSION Page[4,1]
  997.         STORE '101' TO Page[1,1]
  998.         STORE '102' TO Page[2,1]
  999.         STORE '103' TO Page[3,1]
  1000.         STORE '104' TO Page[4,1]
  1001.         DO Number.spr
  1002.     CASE M.Slct = 'Parision Cutter'
  1003.         M.Numb = 132
  1004.         SCXFND = .T.
  1005.     CASE M.Slct = 'Pastry Bags'
  1006.         M.Numb = 137
  1007.         SCXFND = .T.
  1008.     CASE M.Slct = 'Pastry Covers'
  1009.         M.Numb = 82
  1010.         SCXFND = .T.
  1011.     CASE M.Slct = 'Peelers'
  1012.         DIMENSION Pro[2,1]
  1013.         STORE 'Miscellaneuos' TO Pro[1,1]
  1014.         STORE 'Vollrath' TO Pro[2,1]
  1015.         DO PRO.SPR
  1016.     CASE M.Slct = 'Pepper Mills'
  1017.         M.Numb = 63
  1018.         SCXFND = .T.
  1019.     CASE M.Slct = 'Pie Knife'
  1020.         M.Numb = 106
  1021.         SCXFND = .T.
  1022.     CASE M.Slct = 'Pie Marker'
  1023.         M.Numb = 131
  1024.         SCXFND = .T.
  1025.     CASE M.Slct = 'Pie Pans'
  1026.         M.Numb = 127
  1027.         SCXFND = .T.
  1028.     CASE M.Slct = 'Pitcher'
  1029.         M.Numb = 7
  1030.         SCXFND = .T.
  1031.     CASE M.Slct = 'Pitchers'
  1032.         DIMENSION Pro[3,1]
  1033.         STORE 'Continental/Silite' TO Pro[1,1]
  1034.         STORE 'Libbey' TO Pro[2,1]
  1035.         STORE 'Lincoln Foodservice' TO Pro[3,1]
  1036.         DO PRO.SPR
  1037.     CASE M.Slct = 'Pizza Cutters'
  1038.         DIMENSION Pro[2,1]
  1039.         STORE 'Miscellaneuos' TO Pro[1,1]
  1040.         STORE 'Russell Harrington' TO Pro[2,1]
  1041.         DO PRO.SPR
  1042.     CASE M.Slct = 'Pizza Knife'
  1043.         M.Numb = 138
  1044.         SCXFND = .T.
  1045.     CASE M.Slct = 'Pizza Ovens'
  1046.         DIMENSION Page[2,1]
  1047.         STORE '170' TO Page[1,1]
  1048.         STORE '171' TO Page[2,1]
  1049.         DO Number.spr
  1050.     CASE M.Slct = 'Pizza Pans'
  1051.         M.Numb = 139
  1052.         SCXFND = .T.
  1053.     CASE M.Slct = 'Pizza Peels'
  1054.         M.Numb = 139
  1055.         SCXFND = .T.
  1056.     CASE M.Slct = 'Pizza Screens'
  1057.         M.Numb = 139
  1058.         SCXFND = .T.
  1059.     CASE M.Slct = 'Pizza Prep Table'
  1060.         M.Numb = 180
  1061.         SCXFND = .T.
  1062.     CASE M.Slct = 'Pizza Screen Racks'
  1063.         M.Numb = 138
  1064.         SCXFND = .T.
  1065.     CASE M.Slct = 'Pizza Station'
  1066.         M.Numb = 179
  1067.         SCXFND = .T.
  1068.     CASE M.Slct = 'Pizza Trays'
  1069.         M.Numb = 138
  1070.         SCXFND = .T.
  1071.     CASE M.Slct = 'Place Mats'
  1072.         M.Numb = 51
  1073.         SCXFND = .T.
  1074.     CASE M.Slct = 'Plastic Dinnerware'
  1075.         M.Numb = 83
  1076.         SCXFND = .T.
  1077.     CASE M.Slct = 'Platters'
  1078.         M.Numb = 93
  1079.         SCXFND = .T.
  1080.     CASE M.Slct = 'Popcorn Poppers'
  1081.         M.Numb = 155
  1082.         SCXFND = .T.
  1083.     CASE M.Slct = 'Portable Gas Stove'
  1084.         M.Numb = 98
  1085.         SCXFND = .T.
  1086.     CASE M.Slct = 'Portion Control Scale'
  1087.         M.Numb = 135
  1088.         SCXFND = .T.
  1089.     CASE M.Slct = 'Pot Pie'
  1090.         M.Numb = 5
  1091.         SCXFND = .T.
  1092.     CASE M.Slct = 'Potato Cutter'
  1093.         M.Numb = 134
  1094.         SCXFND = .T.
  1095.     CASE M.Slct = 'Pourers'
  1096.         M.Numb = 42
  1097.         SCXFND = .T.
  1098.     CASE M.Slct = 'Pre-Rinse Units'
  1099.         M.Numb = 187
  1100.         SCXFND = .T.
  1101.     CASE M.Slct = 'Pressure Cooker'
  1102.         M.Numb = 176
  1103.         SCXFND = .T.
  1104.     CASE M.Slct = 'Pumps'
  1105.         M.Numb = 41
  1106.         SCXFND = .T.
  1107.     CASE M.Slct = 'Punch Bowls'
  1108.         M.Numb = 95
  1109.         SCXFND = .T.
  1110.     CASE M.Slct = 'Racks, Compartment'
  1111.         DIMENSION Page[2,1]
  1112.         STORE '186' TO Page[1,1]
  1113.         STORE '192' TO Page[2,1]
  1114.         DO Number.spr
  1115.     CASE M.Slct = 'Ramekins'
  1116.         M.Numb = 5
  1117.         SCXFND = .T.
  1118.     CASE M.Slct = 'Ramkins'
  1119.         M.Numb = 7
  1120.         SCXFND = .T.
  1121.     CASE M.Slct = 'Ranges, Restaurant'
  1122.         DIMENSION Pro[2,1]
  1123.         STORE 'Garland' TO Pro[1,1]
  1124.         STORE 'Wolf Range' TO Pro[2,1]
  1125.         DO PRO.SPR
  1126.     CASE M.Slct = 'Ranges'
  1127.         M.Numb = 169
  1128.         SCXFND = .T.
  1129.     CASE M.Slct = 'Rarebit'
  1130.         DIMENSION Pro[2,1]
  1131.         STORE 'Bel-Terr China Inc.' TO Pro[1,1]
  1132.         STORE 'Hall China' TO Pro[2,1]
  1133.         DO PRO.SPR
  1134.     CASE M.Slct = 'ReChauds'
  1135.         M.Numb = 94
  1136.         SCXFND = .T.
  1137.     CASE M.Slct = 'Refrigerators, Walk-In'
  1138.         M.Numb = 182
  1139.         SCXFND = .T.
  1140.     CASE M.Slct = 'Refrigerators'
  1141.         DIMENSION Pro[2,1]
  1142.         STORE 'Delfield' TO Pro[1,1]
  1143.         STORE 'True' TO Pro[2,1]
  1144.         DO PRO.SPR
  1145.     CASE M.Slct = 'Rhapsody, Glassware'
  1146.         M.Numb = 16
  1147.         SCXFND = .T.
  1148.     CASE M.Slct = 'Ricer'
  1149.         M.Numb = 134
  1150.         SCXFND = .T.
  1151.     CASE M.Slct = 'Roast Pans'
  1152.         DIMENSION Page[3,1]
  1153.         STORE '123' TO Page[1,1]
  1154.         STORE '124' TO Page[2,1]
  1155.         STORE '125' TO Page[3,1]
  1156.         DO Number.spr
  1157.     CASE M.Slct = 'Roaster'
  1158.         M.Numb = 124
  1159.         SCXFND = .T.
  1160.     CASE M.Slct = 'Roller Docker'
  1161.         M.Numb = 131
  1162.         SCXFND = .T.
  1163.     CASE M.Slct = 'Rollers, Wooden'
  1164.         M.Numb = 128
  1165.         SCXFND = .T.
  1166.     CASE M.Slct = 'Rotary Mill'
  1167.         M.Numb = 132
  1168.         SCXFND = .T.
  1169.     CASE M.Slct = 'Salad Service'
  1170.         DIMENSION Page[3,1]
  1171.         STORE '70' TO Page[1,1]
  1172.         STORE '71' TO Page[2,1]
  1173.         STORE '72' TO Page[3,1]
  1174.         DO Number.spr
  1175.     CASE M.Slct = 'Salad Top Refrigerators'
  1176.         M.Numb = 179
  1177.         SCXFND = .T.
  1178.     CASE M.Slct = 'Salad Units'
  1179.         M.Numb = 178
  1180.         SCXFND = .T.
  1181.     CASE M.Slct = 'Saladware'
  1182.         M.Numb = 73
  1183.         SCXFND = .T.
  1184.     CASE M.Slct = 'Salt & Pepper Shakers'
  1185.         DIMENSION Pro[3,1]
  1186.         STORE 'Chef Specialties' TO Pro[1,1]
  1187.         STORE 'Libbey' TO Pro[2,1]
  1188.         STORE 'Tablecraft' TO Pro[3,1]
  1189.         DO PRO.SPR
  1190.     CASE M.Slct = 'Sauce Boat'
  1191.         M.Numb = 8
  1192.         SCXFND = .T.
  1193.     CASE M.Slct = 'Sauce Pans'
  1194.         DIMENSION Pro[2,1]
  1195.         STORE 'Lincoln Foodservice' TO Pro[1,1]
  1196.         STORE 'Wearever' TO Pro[2,1]
  1197.         DO PRO.SPR
  1198.     CASE M.Slct = 'Scale'
  1199.         M.Numb = 135
  1200.         SCXFND = .T.
  1201.     CASE M.Slct = 'Scales'
  1202.         DIMENSION Page[3,1]
  1203.         STORE '143' TO Page[1,1]
  1204.         STORE '144' TO Page[2,1]
  1205.         STORE '145' TO Page[3,1]
  1206.         DO Number.spr
  1207.     CASE M.Slct = 'Scoops'
  1208.         DIMENSION Pro[2,1]
  1209.         STORE 'Miscellaneuos' TO Pro[1,1]
  1210.         STORE 'Rubbermaid' TO Pro[2,1]
  1211.         DO PRO.SPR
  1212.     CASE M.Slct = 'Scouring Pads'
  1213.         M.Numb = 133
  1214.         SCXFND = .T.
  1215.     CASE M.Slct = 'Screw'
  1216.         M.Numb = 47
  1217.         SCXFND = .T.
  1218.     CASE M.Slct = 'Seafood Utensils'
  1219.         DIMENSION Pro[3,1]
  1220.         STORE 'Continental/Silite' TO Pro[1,1]
  1221.         STORE 'Service Ideas' TO Pro[2,1]
  1222.         STORE 'Vollrath' TO Pro[3,1]
  1223.         DO PRO.SPR
  1224.     CASE M.Slct = 'Servers'
  1225.         DIMENSION Pro[2,1]
  1226.         STORE 'Hall China' TO Pro[1,1]
  1227.         STORE 'Traex' TO Pro[2,1]
  1228.         DO PRO.SPR
  1229.     CASE M.Slct = 'Service Carts'
  1230.         M.Numb = 151
  1231.         SCXFND = .T.
  1232.     CASE M.Slct = 'Service Tables'
  1233.         M.Numb = 99
  1234.         SCXFND = .T.
  1235.     CASE M.Slct = 'Serving Bowls'
  1236.         M.Numb = 67
  1237.         SCXFND = .T.
  1238.     CASE M.Slct = 'Serving Spoons'
  1239.         M.Numb = 73
  1240.         SCXFND = .T.
  1241.     CASE M.Slct = 'Serving Utensils'
  1242.         M.Numb = 73
  1243.         SCXFND = .T.
  1244.     CASE M.Slct = 'Shaker'
  1245.         M.Numb = 45
  1246.         SCXFND = .T.
  1247.     CASE M.Slct = 'Shakers'
  1248.         M.Numb = 64
  1249.         SCXFND = .T.
  1250.     CASE M.Slct = 'Sharpeners'
  1251.         M.Numb = 106
  1252.         SCXFND = .T.
  1253.     CASE M.Slct = 'Sheet Pans'
  1254.         M.Numb = 125
  1255.         SCXFND = .T.
  1256.     CASE M.Slct = 'Shelving'
  1257.         DIMENSION Pro[2,1]
  1258.         STORE 'Falcon Hodges' TO Pro[1,1]
  1259.         STORE 'Metro' TO Pro[2,1]
  1260.         DO PRO.SPR
  1261.     CASE M.Slct = 'Shirred Egg'
  1262.         DIMENSION Pro[2,1]
  1263.         STORE 'Bel-Terr China Inc.' TO Pro[1,1]
  1264.         STORE 'Hall China' TO Pro[2,1]
  1265.         DO PRO.SPR
  1266.     CASE M.Slct = 'Shot Glasses'
  1267.         M.Numb = 38
  1268.         SCXFND = .T.
  1269.     CASE M.Slct = 'Sieves, Mesh'
  1270.         M.Numb = 126
  1271.         SCXFND = .T.
  1272.     CASE M.Slct = 'Sieves'
  1273.         M.Numb = 126
  1274.         SCXFND = .T.
  1275.     CASE M.Slct = 'Sinage'
  1276.         M.Numb = 81
  1277.         SCXFND = .T.
  1278.     CASE M.Slct = 'Sinks'
  1279.         DIMENSION Pro[2,1]
  1280.         STORE 'Advance' TO Pro[1,1]
  1281.         STORE 'Tabco' TO Pro[2,1]
  1282.         DO PRO.SPR
  1283.     CASE M.Slct = 'Sissors'
  1284.         M.Numb = 131
  1285.         SCXFND = .T.
  1286.     CASE M.Slct = 'Skimmers'
  1287.         DIMENSION Page[2,1]
  1288.         STORE '130' TO Page[1,1]
  1289.         STORE '131' TO Page[2,1]
  1290.         DO Number.spr
  1291.     CASE M.Slct = 'Slicers'
  1292.         DIMENSION Pro[2,1]
  1293.         STORE 'Russell Harrington' TO Pro[1,1]
  1294.         STORE 'Univex Corp.' TO Pro[2,1]
  1295.         DO PRO.SPR
  1296.     CASE M.Slct = 'Sneeze Guard'
  1297.         M.Numb = 75
  1298.         SCXFND = .T.
  1299.     CASE M.Slct = 'Souffle Cups, Plastic'
  1300.         M.Numb = 197
  1301.         SCXFND = .T.
  1302.     CASE M.Slct = 'Souffle'
  1303.         M.Numb = 6
  1304.         SCXFND = .T.
  1305.     CASE M.Slct = 'Space Saving Containers'
  1306.         M.Numb = 142
  1307.         SCXFND = .T.
  1308.     CASE M.Slct = 'Spatula, Frosting'
  1309.         M.Numb = 109
  1310.         SCXFND = .T.
  1311.     CASE M.Slct = 'Specialty Glasses'
  1312.         M.Numb = 21
  1313.         SCXFND = .T.
  1314.     CASE M.Slct = 'Spillage Pan'
  1315.         M.Numb = 161
  1316.         SCXFND = .T.
  1317.     CASE M.Slct = 'Squeeze Dispensers'
  1318.         M.Numb = 66
  1319.         SCXFND = .T.
  1320.     CASE M.Slct = 'Squeezers'
  1321.         M.Numb = 47
  1322.         SCXFND = .T.
  1323.     CASE M.Slct = 'Stacking Chairs'
  1324.         M.Numb = 194
  1325.         SCXFND = .T.
  1326.     CASE M.Slct = 'Stacking Lugs'
  1327.         M.Numb = 184
  1328.         SCXFND = .T.
  1329.     CASE M.Slct = 'Steamtable Pans'
  1330.         DIMENSION Page[3,1]
  1331.         STORE '110' TO Page[1,1]
  1332.         STORE '111' TO Page[2,1]
  1333.         STORE '112' TO Page[3,1]
  1334.         DO Number.spr
  1335.     CASE M.Slct = 'Stemware'
  1336.         DIMENSION Pro[2,1]
  1337.         STORE 'Anchor Hocking' TO Pro[1,1]
  1338.         STORE 'Libbey' TO Pro[2,1]
  1339.         DO PRO.SPR
  1340.     CASE M.Slct = 'Stirrers'
  1341.         M.Numb = 51
  1342.         SCXFND = .T.
  1343.     CASE M.Slct = 'Stock Pots'
  1344.         DIMENSION Pro[2,1]
  1345.         STORE 'Lincoln Foodservice' TO Pro[1,1]
  1346.         STORE 'Vollrath' TO Pro[2,1]
  1347.         DO PRO.SPR
  1348.     CASE M.Slct = 'Storage Containers'
  1349.         M.Numb = 140
  1350.         SCXFND = .T.
  1351.     CASE M.Slct = 'Store N Pour'
  1352.         M.Numb = 45
  1353.         SCXFND = .T.
  1354.     CASE M.Slct = 'Strainers'
  1355.         DIMENSION Pro[3,1]
  1356.         STORE 'Lincoln Foodservice' TO Pro[1,1]
  1357.         STORE 'Miscellaneous' TO Pro[2,1]
  1358.         STORE 'Vollrath' TO Pro[3,1]
  1359.         DO PRO.SPR
  1360.     CASE M.Slct = 'Straws'
  1361.         M.Numb = 51
  1362.         SCXFND = .T.
  1363.     CASE M.Slct = 'Strip Door'
  1364.         M.Numb = 182
  1365.         SCXFND = .T.
  1366.     CASE M.Slct = 'Sugar Caddy'
  1367.         DIMENSION Pro[4,1]
  1368.         STORE 'Bel-Terr China Inc.' TO Pro[1,1]
  1369.         STORE 'Hall China' TO Pro[2,1]
  1370.         STORE 'Libbey' TO Pro[3,1]
  1371.         STORE 'Miscellaneous' TO Pro[4,1]
  1372.         DO PRO.SPR
  1373.     CASE M.Slct = 'Sugar Pourers'
  1374.         M.Numb = 64
  1375.         SCXFND = .T.
  1376.     CASE M.Slct = 'Sundae Dishes'
  1377.         DIMENSION Page[2,1]
  1378.         STORE '37' TO Page[1,1]
  1379.         STORE '38' TO Page[2,1]
  1380.         DO Number.spr
  1381.     CASE M.Slct = 'Table Bases'
  1382.         M.Numb = 195
  1383.         SCXFND = .T.
  1384.     CASE M.Slct = 'Table Glides'
  1385.         M.Numb = 47
  1386.         SCXFND = .T.
  1387.     CASE M.Slct = 'Table Tops'
  1388.         DIMENSION Pro[2,1]
  1389.         STORE 'Miscellaneuos' TO Pro[1,1]
  1390.         STORE 'Virco' TO Pro[2,1]
  1391.         DO PRO.SPR
  1392.     CASE M.Slct = 'Tablecloths'
  1393.         M.Numb = 4
  1394.         SCXFND = .T.
  1395.     CASE M.Slct = 'Tablepadding'
  1396.         M.Numb = 4
  1397.         SCXFND = .T.
  1398.     CASE M.Slct = 'Tableskirting'
  1399.         M.Numb = 4
  1400.         SCXFND = .T.
  1401.     CASE M.Slct = 'Taco Cookware'
  1402.         M.Numb = 120
  1403.         SCXFND = .T.
  1404.     CASE M.Slct = 'Taper Candles'
  1405.         M.Numb = 41
  1406.         SCXFND = .T.
  1407.     CASE M.Slct = 'Teapots'
  1408.         M.Numb = 4
  1409.         SCXFND = .T.
  1410.     CASE M.Slct = 'Telescoping Cover'
  1411.         M.Numb = 161
  1412.         SCXFND = .T.
  1413.     CASE M.Slct = 'Thermo-Plates'
  1414.         M.Numb = 78
  1415.         SCXFND = .T.
  1416.     CASE M.Slct = 'Thermometers, Freezer'
  1417.         M.Numb = 147
  1418.         SCXFND = .T.
  1419.     CASE M.Slct = 'Thermometers, Oven'
  1420.         M.Numb = 147
  1421.         SCXFND = .T.
  1422.     CASE M.Slct = 'Thermometers'
  1423.         M.Numb = 146
  1424.         SCXFND = .T.
  1425.     CASE M.Slct = 'Tilting Kettle'
  1426.         M.Numb = 176
  1427.         SCXFND = .T.
  1428.     CASE M.Slct = 'Tilting Skillet'
  1429.         M.Numb = 176
  1430.         SCXFND = .T.
  1431.     CASE M.Slct = 'Timers'
  1432.         M.Numb = 146
  1433.         SCXFND = .T.
  1434.     CASE M.Slct = 'Tissue Dispensers'
  1435.         DIMENSION Page[2,1]
  1436.         STORE '202' TO Page[1,1]
  1437.         STORE '203' TO Page[2,1]
  1438.         DO Number.spr
  1439.     CASE M.Slct = 'Toaster'
  1440.         M.Numb = 157
  1441.         SCXFND = .T.
  1442.     CASE M.Slct = 'Toasters, Conveyer'
  1443.         M.Numb = 156
  1444.         SCXFND = .T.
  1445.     CASE M.Slct = 'Toilet Tissue'
  1446.         M.Numb = 202
  1447.         SCXFND = .T.
  1448.     CASE M.Slct = 'Tongs'
  1449.         DIMENSION Pro[2,1]
  1450.         STORE 'Miscellaneuos' TO Pro[1,1]
  1451.         STORE 'Vollrath' TO Pro[2,1]
  1452.         DO PRO.SPR
  1453.     CASE M.Slct = 'Toothpicks'
  1454.         M.Numb = 51
  1455.         SCXFND = .T.
  1456.     CASE M.Slct = 'Topping Servers'
  1457.         M.Numb = 48
  1458.         SCXFND = .T.
  1459.     CASE M.Slct = 'Tote Boxes'
  1460.         DIMENSION Pro[2,1]
  1461.         STORE 'Miscellaneuos' TO Pro[1,1]
  1462.         STORE 'Rubbermaid' TO Pro[2,1]
  1463.         DO PRO.SPR
  1464.     CASE M.Slct = 'Towel Holder'
  1465.         M.Numb = 46
  1466.         SCXFND = .T.
  1467.     CASE M.Slct = 'Tray Stands'
  1468.         M.Numb = 76
  1469.         SCXFND = .T.
  1470.     CASE M.Slct = 'Trays, Decorative'
  1471.         M.Numb = 84
  1472.         SCXFND = .T.
  1473.     CASE M.Slct = 'Trays, Fiberglass'
  1474.         M.Numb = 85
  1475.         SCXFND = .T.
  1476.     CASE M.Slct = 'Trays, Pizza'
  1477.         M.Numb = 138
  1478.         SCXFND = .T.
  1479.     CASE M.Slct = 'Trays'
  1480.         DIMENSION Pro[3,1]
  1481.         STORE 'Continental/Silite' TO Pro[1,1]
  1482.         STORE 'Lincoln' TO Pro[2,1]
  1483.         STORE 'Wearever' TO Pro[3,1]
  1484.         DO PRO.SPR
  1485.     CASE M.Slct = 'Trolleys'
  1486.         M.Numb = 100
  1487.         SCXFND = .T.
  1488.     CASE M.Slct = 'Tumblers'
  1489.         DIMENSION Pro[3,1]
  1490.         STORE 'Continental/Silite' TO Pro[2,1]
  1491.         STORE 'Anchor Hocking' TO Pro[1,1]
  1492.         STORE 'Libbey' TO Pro[3,1]
  1493.         DO PRO.SPR
  1494.     CASE M.Slct = 'Turners'
  1495.         DIMENSION Pro[2,1]
  1496.         STORE 'Russell Harrington' TO Pro[1,1]
  1497.         STORE 'Vollrath' TO Pro[2,1]
  1498.         DO PRO.SPR
  1499.     CASE M.Slct = 'Urn Cup'
  1500.         M.Numb = 122
  1501.         SCXFND = .T.
  1502.     CASE M.Slct = 'Utility Carts'
  1503.         DIMENSION Pro[2,1]
  1504.         STORE 'Metro' TO Pro[1,1]
  1505.         STORE 'Rubbermaid' TO Pro[2,1]
  1506.         DO PRO.SPR
  1507.     CASE M.Slct = 'Vacuum Servers'
  1508.         M.Numb = 54
  1509.         SCXFND = .T.
  1510.     CASE M.Slct = 'Vegetable Peeler'
  1511.         M.Numb = 149
  1512.         SCXFND = .T.
  1513.     CASE M.Slct = 'Waffle Baker'
  1514.         M.Numb = 157
  1515.         SCXFND = .T.
  1516.     CASE M.Slct = 'Waitress Stations'
  1517.         M.Numb = 193
  1518.         SCXFND = .T.
  1519.     CASE M.Slct = 'Wall Bottle Breaker'
  1520.         M.Numb = 46
  1521.         SCXFND = .T.
  1522.     CASE M.Slct = 'Warmer'
  1523.         M.Numb = 157
  1524.         SCXFND = .T.
  1525.     CASE M.Slct = 'Warmers, Heated Display'
  1526.         M.Numb = 154
  1527.         SCXFND = .T.
  1528.     CASE M.Slct = 'Waste Baskets'
  1529.         M.Numb = 205
  1530.         SCXFND = .T.
  1531.     CASE M.Slct = 'Waste Containers'
  1532.         M.Numb = 205
  1533.         SCXFND = .T.
  1534.     CASE M.Slct = 'Water Pans'
  1535.         M.Numb = 97
  1536.         SCXFND = .T.
  1537.     CASE M.Slct = 'Whips, French'
  1538.         M.Numb = 130
  1539.         SCXFND = .T.
  1540.     CASE M.Slct = 'Whips, Piano'
  1541.         M.Numb = 130
  1542.         SCXFND = .T.
  1543.     CASE M.Slct = 'Whips'
  1544.         M.Numb = 151
  1545.         SCXFND = .T.
  1546.     CASE M.Slct = 'Wine Buckets w/Stands'
  1547.         M.Numb = 53
  1548.         SCXFND = .T.
  1549.     CASE M.Slct = 'Wine Servers'
  1550.         M.Numb = 53
  1551.         SCXFND = .T.
  1552.     CASE M.Slct = 'Wire Racks'
  1553.         M.Numb = 66
  1554.         SCXFND = .T.
  1555.     CASE M.Slct = 'Work Tables'
  1556.         M.Numb = 161
  1557.         SCXFND = .T.
  1558. ENDCASE
  1559.  
  1560. IF SCXFND = .T.
  1561.     do screen.exe with (ALLTRIM(STR(M.Numb))+'.spr')
  1562. ENDIF
  1563.  
  1564.  
  1565.  
  1566.  
  1567.  
  1568.  
  1569.  
  1570.  
  1571.  
  1572.  
  1573.  
  1574.  
  1575.  
  1576.  
  1577.  
  1578.  
  1579.  
  1580.  
  1581. *       *********************************************************
  1582. *       *                                                         
  1583. *       * _QSI0RIEQ8           M.Quitting VALID                   
  1584. *       *                                                         
  1585. *       * Function Origin:                                        
  1586. *       *                                                         
  1587. *       * From Platform:       Windows                            
  1588. *       * From Screen:         MAIN,     Record Number:    4      
  1589. *       * Variable:            M.Quitting                         
  1590. *       * Called By:           VALID Clause                       
  1591. *       * Object Type:         Push Button                        
  1592. *       * Snippet Number:      2                                  
  1593. *       *                                                         
  1594. *       *********************************************************
  1595. *
  1596. FUNCTION _qsi0rieq8     &&  M.Quitting VALID
  1597. #REGION 1
  1598. Quit
  1599.  
  1600. *       *********************************************************
  1601. *       *                                                         
  1602. *       * _QSI0RIF05           Read Level Activate                
  1603. *       *                                                         
  1604. *       * Function Origin:                                        
  1605. *       *                                                         
  1606. *       *                                                         
  1607. *       * From Platform:       Windows                            
  1608. *       * From Screen:         MAIN                               
  1609. *       * Called By:           READ Statement                     
  1610. *       * Snippet Number:      3                                  
  1611. *       *                                                         
  1612. *       *********************************************************
  1613. *
  1614. FUNCTION _qsi0rif05     && Read Level Activate
  1615. *
  1616. * Activate Code from screen: MAIN
  1617. *
  1618. #REGION 1
  1619. RELEASE ALL LIKE PRO
  1620. RELEASE ALL LIKE PAGE
  1621. SCXFND = .F.
  1622.